home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / SHOPPI.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  70 lines
  1. 10 PRINT"ô"
  2. 20 REM * * * THIS PROGRAM GENERATS A
  3. 30 REM * * * PRINT OUT FILE FOR A
  4. 40 REM * * * SHOPPING LIST.
  5. 50 REM * * *
  6. 60 REM * * * BILLY FREY
  7. 70 REM * * * 238 CHELSEA AVE.
  8. 80 REM * * * LONG BRANCH NJ.
  9. 90 REM * * * 908/229-4017  JAN. 6,1991
  10. 100 POKE646,2
  11. 110 PRINT""
  12. 120 PRINTSPC(13)"SHOPPING LIST"
  13. 130 PRINT""
  14. 140 POKE641,5:POKE53281,1:POKE53280,1
  15. 145 INPUT" TODAYS DATE IS...";DT$
  16. 146 PRINT""
  17. 150 INPUT"MEATS--->";M$
  18. 156 PRINT""
  19. 160 INPUT"DAIRY -->";D$
  20. 166 PRINT""
  21. 170 INPUT"FROZEN FOODS -->";F$
  22. 176 PRINT""
  23. 180 INPUT"VEGETABLE";V$
  24. 186 PRINT""
  25. 190 INPUT"BEVERAGE -->";B$
  26. 196 PRINT""
  27. 200 INPUT"PASTA -->";P$
  28. 206 PRINT""
  29. 210 INPUT"SPICE AND BAKING NEEDS. -->";S$
  30. 216 PRINT""
  31. 220 INPUT"HEALTH AND BEAUTY. -->";H$
  32. 226 PRINT""
  33. 230 INPUT"BAKERY GOODS. -->";C$
  34. 236 PRINT""
  35. 240 INPUT"SOUPS. -->";N$
  36. 246 PRINT""
  37. 250 INPUT"CLEANING AND PAPER PRODUCTS  -->";J$
  38. 260 PRINT""
  39. 270 INPUT"IS PRINTER ON Y/NÆ";PR$
  40. 280 IF PR$="Y"THEN290:IF PR$="N"THEN285
  41. 285 PRINTSPC(2)"TURN PRINTER ON NOW, THEN PRESS THE PÆ KEY."
  42. 286 GETA$:IFA$=""THEN286
  43. 287 IFA$="P"THEN290
  44. 290 PRINT"STAND BY PRINTING LIST..."
  45. 300 OPEN7,4:CMD7
  46. 310 PRINT:PRINTSPC(20)"SHOPPING LIST FOR THE FREY'S"
  47. 320 PRINTSPC(24)DT$
  48. 330 PRINT:PRINT:PRINT:PRINT
  49. 340 PRINTSPC(12)M$
  50. 350 PRINTSPC(12)D$
  51. 360 PRINTSPC(12)F$
  52. 370 PRINTSPC(12)V$
  53. 380 PRINTSPC(12)B$
  54. 390 PRINTSPC(12)P$
  55. 400 PRINTSPC(12)S$
  56. 410 PRINTSPC(12)H$
  57. 420 PRINTSPC(12)C$
  58. 430 PRINTSPC(12)N$
  59. 440 PRINT    
  60. 450 PRINT#7:CLOSE7
  61. 460 PRINT""
  62. 470 PRINT""
  63. 480 POKE646,5
  64. 490 INPUT"DO YOU WANT A NEW LIST Y/N...";AN$
  65. 500 IF AN$="Y"THEN 10:IFAN$="N"THEN 510
  66. 510 PRINT"ô"
  67. 520 PRINT"GOODBY.."
  68. 530 PRINT"GO TO THE STORE"
  69. 540 PRINT"æææ"
  70.